Power Bytes: Money & Finance/PowerBytes Money and Finance CD-ROM 01/PowerBytes Money and Finance CD-ROM 01.iso/Demos/TrueBASIC Demo/User's Guide/Liss

Text File | 1985-10-19 | 385 b | 18 lines | [TEXT/TRUE]

! Lissajous experiment
!
SET WINDOW -1, 1, -1, 1
DO
    PRINT "X multiplier, Y multiplier";
    INPUT xmult, ymult
    CLEAR

    FOR i = 0 to 2*pi STEP pi/100    ! Draw the figure
        PLOT sin(xmult*i), cos(ymult*i);
    NEXT i

    PLOT                   ! Turn off the beam
    PAUSE 3                ! Wait 3 seconds
    CLEAR                  ! Then clear the screen
LOOP
END